BBS Toolkit/BBS Toolkit.iso/doors_1/breo852.zip/BRE.CFG

Text File | 1992-08-09 | 6KB | 164 lines

{
  begin "BRE Installation"
  ------------------------
  (set game "BRE")
  (set version "0.0850")
  (set 4-dos (4-dos?))
  (set ResourceFile "RESOURCE.DAT")

  (display game " " version " setup:\n\n")

  (display "The " game " directory is `" (fix-path (get-cwd)) "'.\n\n")

  (set BBSDirectory (read-string "Which directory is your BBS in?\n> "))
  [ if (not BBSDirectory)
      (set BBSDirectory ".")
  ]
  (set BBSDirectory (fix-path BBSDirectory))

  (write-setup-sr)

  (set BatchFile (concat BBSDirectory game ".BAT"))
  [ if (not (ask "Write to " BatchFile "?  [Y/N] "))
      (set BatchFile (read-string "Enter the full pathname for your batch file:\n> "))
  ]

  "Ask about special effects"
  (set SpecialEffects (ask "Do you want Special Effects? [Y/N] "))
  [ if (not (error? SpecialEffects))
    (if SpecialEffects (set SpecialEffects "TRUE"))
    (if (not SpecialEffects) (set SpecialEffects "FALSE"))
    (resource-edit ResourceFile "SpecialEffects" SpecialEffects)
  ]

  (set LockedBaud (read-string "If you have locked baud rates, please enter the baud rate:\n> "))
  (if LockedBaud (resource-edit "RESOURCE.DAT" "LockedBaud" LockedBaud))
  (if (not LockedBaud) (resource-edit "RESOURCE.DAT" "LockedBaud" "none"))

  (set Scores? (ask "Do you want to have score files? [Y/N] "))
  [ if (not (error? Scores?))
    [ if (not Scores?)
      (resource-edit ResourceFile "Scores" "NO")
    ]
    [ if Scores?
      (resource-edit ResourceFile "Scores" "YES")
      (set L-ansi-scores
        (read-string "If you want an ANSI score file, enter the full pathname:\n> "))
      (resource-edit ResourceFile "AnsiScores" L-ansi-scores)
      (set L-text-scores
        (read-string "If you want a TEXT score file, enter the full pathname:\n> "))
      (resource-edit ResourceFile "AsciiScores" L-text-scores)
    ]
  ]

  (set News? (ask "Do you want to store the daily news files? [Y/N] "))
  [ if (not (error? News))
    [ if News?
      (set L-ansi-news
        (read-string "If you want an ANSI Today's news file, enter the full pathname:\n> "))
      (resource-edit ResourceFile "TodayNewsAnsi" L-ansi-news)
      (set L-text-news
        (read-string "If you want a TEXT Today's news file, enter the full pathname:\n> "))
      (resource-edit ResourceFile "TodayNewsAscii" L-text-news)
      (set L-ansi-ynews
        (read-string "If you want an ANSI Yesterday's news file, enter the full pathname:\n> "))
      (resource-edit ResourceFile "YesterdayNewsAnsi" L-ansi-ynews)
      (set L-text-ynews
        (read-string "If you want a TEXT Yesterday's news file, enter the full pathname:\n> "))
      (resource-edit ResourceFile "YesterdayNewsAscii" L-text-ynews)
    ]
  ]

  "------------------------------------------------------------------------"
  [ if (not BatchFile)
    (display "\n\nNot creating a batch file.\n")
  ]

  [ if BatchFile
    (display "\n\nWriting to " BatchFile "\n")

    "Write a batch file"
    (rewrite BatchFile)

    (write "@ECHO OFF\n")
    [ if 4-dos
        (write "REM 4-DOS version\n")
        (write "PUSHD " (fix-path (get-cwd)) "\n")
    ]
    (if (not 4-dos) (write (cd-cmd (fix-path (get-cwd)))))

    (set Setup (setup-type))
    [ if (= Setup "Searchlight")
        " %1 is the username "
        " %2 is ANSI:  `C' means yes"
        " %3 is Time left"
        " %4 is Baud rate"
        " %5 is COM port"
        (write "ECHO %1  >DOORFILE.SR\n"
               "IF [%2]==[C] ECHO 1 >>DOORFILE.SR\n"
               "IF NOT [%2]==[C] ECHO 0 >>DOORFILE.SR\n"
               "ECHO -1 >>DOORFILE.SR\n"
               "ECHO 25 >>DOORFILE.SR\n")
        [ if LockedBaud
          (write "REM For non-locked, use ECHO %4 >>DOORFILE.SR\n"
                 "ECHO " LockedBaud " >>DOORFILE.SR\n")
        ]
        [ if (not LockedBaud)
          (write "ECHO %4 >>DOORFILE.SR\n")
        ]
        (write "ECHO %5 >>DOORFILE.SR\n")
        (write "ECHO %3 >>DOORFILE.SR\n")
    ]

    [ if (= Setup "PC-Board NEW")
        (display "PC-Board 14.x support has not yet been added to SRDOOR.\n")
        (set PCB-2-SR (ask "Do you have PCB-2-SR? [Y/N] "))
        [ if PCB-2-SR
          (write "PCB2SR")
          (display "Please put PCB2SR.EXE in the " game " directory, or modify "
                   BatchFile to run PCB-2-SR from the right directory.\n")
        ]
        [ if (not PCB-2-SR)
          (write "REM PC-Board support is not working yet.")
          (display "PC-Board 14.x support has not been added to SRDOOR.  There "
                   "is a program called PCB-2-SR that converts PC-Board files "
                   "to the format that " game " requires.  You might want to get "
                   "PCB-2-SR or a door converter that converts to a format used "
                   "by another BBS.  (You will have to run the installation "
                   "again.)\n")
        ]
    ]

    [ if (and (<> Setup "PC-Board NEW") (<> Setup "Searchlight"))
        (write "SRDOOR")
        [ if (= Setup "GT")
            (set ComPort (read-string "What COM port do you run on?  [1-8]\n> "))
            (write " GT " ComPort)
        ]
        [ if (= Setup "PC-Board OLD")
            (set ComPort (read-string "What COM port do you run on?  [1-8]\n> "))
            (write " PCBOARD2 " ComPort)
        ]
        (write "\n")
    ]

    (write game "\n")

    (if 4-dos (write "POPD\n"))
    (if (not 4-dos) (write (cd-cmd BBSDirectory)))

    (write "EXIT\n")
  ]

  (display "\nSee OPTIONS.DOC for other parameters.\n")
  (display "\nSee RESOURCE.DOC for customization information.\n")
  (display "See IPSETUP.DOC for information on inter-BBS setup.\n")
  (display "See BRANSI.DOC for information on customizing BRE with ANSI files.\n")
  (display "Note: *.SAM files are not used by BRE; they are only samples.\n")

  (pause "\nPress any key to exit... ")
  ----------------------
  end "BRE Installation"
}